10 PRINT CHR$(147):PRINT "     COPYRIGHT 1989 SOGWAP SOFTWARE"
20 PRINT:PRINT "MAKE 1581 DIRECTORY SPEED LOAD USR FILE"
30 PRINT:PRINT "       WRITTEN BY MICHAEL MILLER":PRINT:PRINT
40 DV=9:INPUT "CREATE USR FILE ON DRIVE NUMBER";DV
50 PRINT:PRINT "INSERT DISK INTO DRIVE #";DV:PRINT:PRINT ,"-PRESS ANY KEY-"
60 GET X$:IF X$="" THEN 60
70 PRINT CHR$(147);"WRITING 1581 USR FILE...":PRINT
80 A$="":FOR I=1 TO 172:READ A:CS=CS+A:A$=A$+CHR$(A):NEXT
90 IF CS<>14933 THEN PRINT "ERROR IN DATA STATEMENTS":STOP
100 OPEN 15,DV,15:OPEN 8,DV,8,"1581,U,W":PRINT#8,A$;:INPUT#15,E,EM$:CLOSE 8
110 PRINT E;EM$:PRINT "DONE!":CLOSE 15:END
200 DATA 0,5,168,96,234,234,234,234,234,120,169,2,141,1,64,234,165,76
210 DATA 174,139,2,133,11,134,12,162,0,169,128,32,84,255,165,2,201,2
220 DATA 176,50,160,254,173,0,3,208,4,172,1,3,136,132,16,152,32,112
230 DATA 5,160,2,185,0,3,32,112,5,200,198,16,208,245,169,2,141,1
240 DATA 64,173,1,64,48,15,174,1,3,173,0,3,208,191,240,2,169,255
250 DATA 32,112,5,88,96,0,0,0,0,0,8,2,10,4,12,6,14,1
260 DATA 9,3,11,5,13,7,15,162,0,142,1,64,170,74,74,74,74,72
270 DATA 138,41,15,170,189,96,5,170,169,4,44,1,64,208,251,142,1,64
280 DATA 138,10,41,15,72,104,141,1,64,104,170,189,96,5,234,141,1,64
290 DATA 10,41,15,72,104,141,1,64,96,199